---
title: "Estimated US emergency room visit related to basketball (2017)"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
injuries <- read_tsv("../data/NEISS/injuries.tsv")
population <- read_tsv("../data/NEISS/population.tsv")
products <- read_tsv("../data/NEISS/products.tsv")
```

### Basketball related ER visits {data-width=650}

```{r}
basketball_injuries_demographics <- injuries |>  filter(prod_code == 1205) |>
  count(age, sex, wt = weight, sort = TRUE)
basketball_injuries_demographics |>  ggplot(aes(x = age, y = n, color = sex)) +
  geom_line() +
  labs(title = "Basketball related ER Visits (2017)",
       y = "Estimated Number of Injuries")
```

### Top 20 demographic groups for basketball related ER visits (2017) {data-width=350}

```{r}
knitr::kable(basketball_injuries_demographics[1:20,c("age", "sex", "n")])
```